﻿Public Class Autenticador
    Private wsAutenticador As WS.Autenticador
    Public Function Autenticar(ByRef Autenticador As Common.Autenticador) As Integer
        If Autenticador Is Nothing Then Throw New Utils.Excecao("Objeto nulo (Autenticador).")
        If wsAutenticador Is Nothing Then wsAutenticador = New WS.Autenticador(Autenticador.Servidor)

        Dim intRetorno As Integer = wsAutenticador.Autenticar_V1(
                                                        Autenticador.Empresa,
                                                        Autenticador.Usuario,
                                                        Autenticador.Senha,
                                                        Autenticador.Unidade,
                                                        Autenticador.Recurso)

        Autenticador.Autenticado = If(intRetorno > 0, True, False)
        Return intRetorno
    End Function

End Class
